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-TITLE SYSDELPRC = DELETE PROCESS SYSTEM SERVICE 
- IDENT *ybeebo0" 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE re 


® 
*® 
® 
® 
if 
® 
® 
® 
Vv te 

PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
TRANSFERRED. * 
® 

THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
SHOULD NOT ITMEN . 

a 

® 

* 

& 

* 

* 

® 


AND BE CONSTRUED AS A COMM T BY DIGITAL EQUIPMENT 
CORPORATION. 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


T 
™ 
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;++ 
; FACILITY: EXECUTIVE, SYSTEM SERVICES 


; ABSTRACT: SYSDELPRC IMPLEMENTS THE D 
; WHICH CAUSES A PROCESS 


ELETE P 
TO BE DELETED FROM 
RELEASING ALL OF ITS RESOURCES. 


; ENVIRONMENT: 
: MODE =KERNEL 


; AUTHOR: R. I. HUSTVEDT, CREATION DATE: 30-DEC-76 
; MODIFIED BY: 


v0O3-019 TMKO002 Todd M. Katz 18-Apr-1983 


: S 
; Delete the job-wide logical name table and all names contained 


ROCESS SYSTEM SERVICE 
THE SYSTEM AFTER 


SDOSOSOOCSOOOSOOSSSSOSOSOSOSOSOSOSOSOSOSOSOOSOSOSOOOSOSOSoOSoS 
SOOOCOOOSOOSOSOSOSOOSSOSOSSOSOSOSOSOSOOSCOOSOSOOOOOSOOOOOSOOSO 


therein after dismounting all mounted volumes ( the table is 
actually deleted after decrementing the interactive and batch 
job counts as sgerepr jose ). We were deleting the job table 
efore dismounting all privately mounted volumes. This was 
causing random poged-poot corruption whenever a logical name had 
been specified during the mount ng of the privete volume. This 
logical name is now placed into the job table, instead of into 
the process logical name table. Therefore, it was hs deleted 
twice = once as a result of the cleanup of the job table prior 
to its deletion, and once as a result of the dismount of the 
privately mounted disk. 


v03-018 HHOOT1 Hai Nuene 4-Apr-1984 
Lock 1/0 database when flushing the job-wide mount List. 
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Correct incorrect register bug when returning unused CPU 
time. Make extremely rare error path perform in a way 
that makes sense. 


Soooooo 


8 3 : v03-017 HHOO002 Hai Huang 1-F eb-1984 
60 ; Add job-wide mount support, i.e. do not issue ioc$dismount 
e] : the process is a sub-process. 
6 : v03-016 CDdS0002 Christian D. Saether 14-Dec-1983 
0 64 ; Modify the bugcheck that looks for assigned channels 
B8 o2 ; to ignore the special xqp channel. 
09 67 : v03-015 LUK0254 Lawrence J. Kenah 7-Dec-1983 
000 re: i Add two consistency checks. 
80 $3 ; v03-014 TMKO001 Todd M. Katz 12-0c t-1983 
0000 ms If the process being deleted is not a sub-process, then 
0000 a ; delete the job-wide logical name table after the deletion 
it uF : of all subprocesses has completed. 
0000 75 ; v03-013 LJK0248 Lawrence J. Kenah 30-Aug-1983 
0000 £6 3 Reorder EXESDELPRC procedure so that setting of DELPEN bit 
444 oe ; and queuing of DELETE AST occur while remaining at SYNCH. 
0000 (79; v0O3-012 wMc0002 Wayne Card 15=JUL-1983 
0000 80 Batch count. Bay + hates 
0000 8¢ : vO3-011 wMC0011 Wayne Cardoza 15-Jun-1983 
4444 o : Decrement interactive user ccunt when appropriate. 
0000 «85: V03-010 RSHO032 R. Scott Hanna 26-May-1983 
3808 6 3 Fix Linker truncation error. 
0000 «= 8B: V03-009 ACG0335 Andrew C. Goldstein, | 10-May-1983 19:20 
4 + ; Deallocate extended rights List when present 
0000 «91: v03-008 LyK0202 Lawrence J. Kenah 19-Apr-1983 
4 38 : Fix several broken word displacements 
0000 (94: v03-007 CwH1002 CW Hobbs 24-Feb-1983 
0000 95 ; Modified to support extended pids. Use SCHSC_SWPPIX to locate 
sit 38 ; the swapper pid. 
000 98: V03-006 DMWw4025 DMWalp 7=Jan-1983 
O80 199 : Fixed broken branch 
9009 101 ; v03-005 ¢D$0001 C Saether 22-Oct-1982 
38 ! $ : Add process deletion defer mechanism. Initial user F11BxQP. | 
$0 182 : v03-004 ACG0301 Andrew C. Goldstein, 21-Oct-1982 13:41 
38 5 : Restore FILCNTNONZ bugcheck | 
4 1 : : v03-003 wMc0001 Wayne Cardoza 26-Aug-1982 | 
; ! 3 : Reset privileged Library vectors after rundown. | 
0 110 : V03-002 LJK0169 LAWRENCE J. KENAH 2=Jun-1982 | 
112; 
118 3 
114: | 
| 
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115 ; v03-001 
118 : 
117 : 
118 ; 


SSEb=198¢ 85:82:38 USYSYSRcSGSDeLPRccman: 1 


ACGO178 Andrew C. 
Remove FILECNTNONZ bugchec 


piestetn, 1-Apr-1982 11:21 
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SYSTEM SERVICE 16-SEP-1984 01:57: AX/VMS Macro v04-00 Pa 5 S! 
TE PROCESS SYSTEM SERVI aioe 84:25:38 SYS.SRCISYSDELPRC.MAR; 1 ” q) v 
~SBTTL EXESDELPRC - DELETE PROCESS SYSTEM SERVICE 
: FUNCTIONA DESCRIPTION: 
EX g DELPRC IMPLEMENTS THE DELETE PROCESS SYSTEM SERVICE WHICH CAUSES 
PROCESS TO BE DELETED FROM THE SYSTEM. IF THE SPECIFIED 
OCESS EXISTS, A KERNEL AST IS QUEUED FOR IT TO 
PER FORM THE DELETION PROCESSING IN THE CONTEXT OF THE TARGET 
PROCESS. A PROCESS THEREFORE DELETES ITSELF. 
CALLING SEQUENCE: 
CALLG  ARGLIST,EXESDELPRC 


INPUT PARAMETERS 
PIDADR(AP) = ADDRESS OF THE PROCESS IDENTIFICATION OF THE 
ROCESS TO BE DELETED. 
PRCNAM(AP) = ADDRESS OF STRING DESCRIPTOR FOR PROCESS LOGICAL NAME 
R4 = PCB ADDRESS OF CURRENT PROCESS 


IMPLICIT INPUTS: 
CURRENT PROCESS PCB AND PHD 
PCB OF TARGET PROCESS 


OUTPUT PARAMETERS: 
0 = COMPLETION STATUS CODE 
@PIDADR(AP) = PROCESS IDENTIFICATION OF DELETED PROCESS 


IMPLICIT OUTPUTS: 
NONE 


F=4 
= 


COMPLETION comet 
SS$_NORM 


- SUCCESSFUL COMPLETION 
55$~ NONEXPR - NONEXISTENT PROCESS 
SS$"NOPRIV = NO PRIVILEGE, TARGET PROCESS IS NOT A SUBPROCESS 
AND ISSUING PROCESS DOES NOT HAVE PROCESS CONTROL 
PRIVILEGE FOR GROUP OR WORL 
SS$_INSFMEM = INSUFFICIENT DYNAMIC MEMORY AVAILABLE FOR SERVICE 
AND RESOURCE WAIT MODE DISABLED. 


SIDE EFFECTS: 
A KERNEL AST WILL BE ENQUEUVED FOR THE PROCESS TO BE 
DELETED WHICH MAY CAUSE RESCHEDULING TO OCCUR. 


-ENTRY EXESD ree “M<R2,R3,R4, RS, R6,R7> Save R2 epreuge R7 
SBW EXESA sap toc CIRP 3 Allocate AST control block 
BLBC R et s eee error 
VL R 3; Set address for SCHSQAST 
BSBy Exes NAMPID 3 Convert n nane/P 1D to PCB address 
° 4 x 
CMPW R1,S*#SCHSC_SWPPIX 3 Do not alles SWAPPER or NULL 
BLEQU 208 : Exit with error if either Of those 


for delete, the system service 
the ACB. 
EXESNAMPID. 


iY the target process is already marked 
s piaoly returns a success code to the caller after deallocatin 
Note that SS$_NORMAL was loaded into RO by the success path o 


ssa 


BBSS 


ASSUME PCBSV_RESPEN LE 7 


E 

E 
2A 24 04 01 «C2 
“83 82 Ooh 


SEven senvs “ESERC19EE 84:82:32 


#PCBSV_DELPEN,PCBSL_STS(R4) ,30$ 


The following three instructions are the 
That same functionality must be reproduce 
SYNCH so the system service cannot be used. 


AX/VMS Macro V04-00 
SYS.SRCISYSDELPRC.MAR; 1 


uts of the SRESUME system service. 
here while remaining at IPL 


BISB #<1APCBSV_RESPEN>,PCBSL_STS(R4) ; Set resume pending bit 
MOVZBL #PRI$_RESAVL,R ; Set priority increment class 
RPTEVT RESUME ; Report RESUME event to scheduler 
10 AS QOO00002F'EF 9 MOVAB L“DELETE,ACBSL_AST(R5) ; Set address for delete action 
AS 94 CLRB ACBS$B_RMOD(RS) : Mark as normal kernel mode AST 
OC AS 60 AG MOVL PCBSL-PID(R4) ,ACBSL_PID(RS) 3; Set PID of target 


so that a 
MOVZBL #PRIS_RESAVL,R2 
; is not necessary here. 


BSBW SCHSQAST 3 
MOVZWL 7308 HORA. RO ; 
SETIPL # ; 


0 

0 

FFC7" 30 : 
50.01 3¢ 0 108: 


WAU AAAAAAAAAANINININ 223233 SSS fom 


FMRIMIMIODS F&F NMNOQOOO MO OPA AAAAAAAA MOO *WIODIOOIWIVIVIOIoo 


50 O8&8 BF 3C 0$: MOVZWL 9 #SSS$_NONEXPR,KO 
DD PUSHL R 


0$: 


PDRAEDPRDPDPD GAA rvs Be Be Be BE AAI NII om 


NAME WN OOO NA MEW 0 OD NAUE WHO OONOULS UM O0O MN 


50 8 MOVL R5,RO : 
FFB3" BSBW  EXESDEANONPAGED ; 
0 8ED0 POPL RO s 
11 : $ BRB 10$ 3 
; os 3; The rest of the code in this module can 
0000002 0 -PSECT YSEXEPAGED 


R2 has already been loaded with the correct priority increment class 
and R2 is preserved by SCHSRSE (called from within the RPTEVT macro) 


Set priority increment 


And queve ast for process 
Set normal status 

Enable rescheduling 

eee and return 


; The following error paths must deallocate the unused ACB before returning. 


NULL and SWAPPER cannot be deleted 
Save error status 

Get address of ACB 

Deallocate packet back to pool 
Retrieve saved error status 

Join common exit code 


exist in a pageable part of the exec 


re, 


C) 
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own COTW! CPO 
COOoocoococKeo 
SOoooooO 
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RF ORM 
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; CALLING SEQ 


Sete Se teeete at CD 


SYST 
DELE 
~SBTTL DELETE = PERFORM DELETE ACTIONS IN CONTEXT OF PROCESS 


FUNCTIONAL D RIPTION: ? LETE EXECUTES AS THE RESULT OF A KERNEL 
S NECESSARY yaoe DELETE” A Prot Stese” SAND RETURN IT PERFORMS. 

N MESSAGES ARE S EKE Fo rhe NATION mite 7 

WHEN THE PR ocese” WAS ORLASED” TO THE 

ACCOUNTING IS NOT DISABLED FOR” THIS PR 


NCE: 
(SAME EFFECT AS) DCLAST ASTADR=DELETE MODE=KERNEL 


oe 
e MmmBZoz 


ESC 
ITLAT 
TION 
ATIO 
1ED 
R 1 
ENC 


; INPUT PARAMETERS: 

; NONE 

; OUTPUT PARAMETERS: 
NONE 


IMPLICIT INPUTS: 


PCB OF CURRENT PROCESS (LOCATED VIA SCHSGL_CURPCB) 
PHD OF CURRENT PROCESS 


; IMPLICIT OUTPUTS: 
NONE 


“a 
5 
5 
¢ i 
$i 
8 
? 
, 
8 


SIDE EFFECTS: 
NONE 


DELETE : PERF ORM DELETE OPERATIONS 

.wORD 0 + ENTRY MASK 

OVL G*SCHSGL CURPCB + GET PCB ADDRESS 

BICB2 PcBse ASTACE (RAD : CLEAR RERNEL AST ACTIVE 

JSB et echsa : COMPUTE NEW AST LEVEL 

SETIPL : RAISE t0 SYNCH FOR DPC CHECK 

TSTB © PCBSB_DPC(R4) : IS DPC NON-ZERO? 

BEQL «6s 7$ : EQL THEN DELETION 1S ALLOWED 

PUSHL #0 : KERNEL MODE, IPL 0 PSL FOR RWAIT 

MOVL  &#RSNS ASTWAIT, RO : NOTE AST R REOURLE 

JSB LeSCHSR HSRWAIT + WAIT FOR AST 

BRB 4 : MAKE THE TEST AGAIN 

SETIPL #0 : AND BR IPL 

Bact #PCBSV_SSRWAIT,PCBSL_STS(R4) ,10$ ; ENABLE RESOURCE WAIT 
$: .LONG IPL$_SYNCH : MAKE SURE CODE DOESN'T PAGE AT SYNCH 

2 ASSUME nts LE 512 : IF NOT TRUE, IPL PAGE FAULT HACK NG 


INVOKE THE USER RUNDOWN SERVICE(S) 


The user service is invoked in KERNEL mode with a JSB and must 
exit with a RSB. 


R4 - Pointer to current PCB 
R7 = Acess mode of call to rundown routine (always 0) 
ACMODE(AP) = always 


H 9 
FE ACTIONS IN CONTE 'SuSEP=19RG Bbieaioe Lene eecHRS SCE eRc Ol. = Page 
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tae DELETE © = PERFORM DELETE ACTIONS IN CONTE ety 7 83: 35: 38 SYS.SRCIJS $750 ELPRC.MAR; 1 ° d) 
: 6 3 The above parameters are the same as in the call from SYSRUNDWN. 
7 06 83 4 CLRL = «aR? ; KERNEL MODE RUNDOWN 
C OD 68 5 PUSHL AP 
E D4 D $ CLRL. = = (SP) 3 ANOTHER KERNEL MODE ACCESS PARAMETER 
af BP Bee nt 
55 90000500" ea’ 74 § MOVL SP ETLSGL _USRUNDWN, RS; GET PER-PROCESS USER RUNDOWN VECTOR 
08 1 7B 40 BEQL 135, ; NOT PRESENT, SKIP ON 
1 70 3 JS8 (R5) : CALL THRU THE VECTOR(S) 
55 O0000000'GF oD 7F 4g 15$ MOVL  G*EXESGL_USRUNDWN, RS  ; GET SYSTEM-WIDE USER RUNDOWN VECTOR 
0@ 1 6 6 4 BEQL 18$ : NOT PRESENT, SKIP ON 
6 16 44 JSB8 (R5) : CALL THRU THE VECTOR(S) 
5E s ¢ 0 A 345 18$ ADDL 4#8,SP ; CLEAN UP 
BE D0 D 46 MOVL  (SP)+,AP 
QO000000'EF 16 30 ‘7 JSB LEXESRESETVEC ; RESET THE PRIVILEGED LIBRARY VECTORS 
009 $3 eueeeeeooeooosoeooeeoooeoeoeoessooesoeoessoeocosesoesoeoeoeooesoeseco 
096 351: RMS RUNDOWN 
096 26 3 
bee 37 F eeeeecoooeoooseesoeeeeseeeeeeeoeeoeseseseeesoesoesocoeecececocecoe 
SE FF78 CE 9E 0096 355 MOVA 5136(SP) SP : ALLOCATE STRING BUFFER 
6— 80 8F 9A 0098 36 20$: MOVZBL #128, (SP5 : SET COUNT FOR STRING BUFFER 
04 AE O8 AE DE 009F 5 MOVAL 8 (SP5,4(SP) : FORM ADDRESS PART OF DESCRIPTOR 
02 DD O0A4 38 PUSHL #2 ; LAST CHANCE RMS CLEANUP 
04 AE 9F O00A6 35 PUSHAB 4(SP) : SET ADDRESS OF STRING BUFFER 
00000000'9F 02 FB OO0A9 360 CALLS #2,a#SYSSRMSRUNDWN ; DEFAULT CLOSE OF OPEN RMS FILES 
€8 50 £9 008 61 BLBC R0,20$ ; REPEAT IF MORE TO CLOSE 
00s e we wewrernnr eer nen ee ern nmrewrwe reese i ii ise ererenree2reewnmr reece nna ze eee eneann em terran are = 
008 63 : FIND AND DELETE ALL SUB-PROCESSES 
0B oF Ee Ee ee 
0B $9 SUBDELETE: ; DELETE SUB-PROCESSES 
42 As BS 0 TSTW PCBSW_PRCCNT(R4) : ANY SUB-PROCESSES? 
1 6 71 BEQL 50$ ; CONTINUE 
oo 000 00° ef 3 ie MOVZ2WL SCHSGL_MAXPIX ; INITIALIZE INDEX FOR PROCESS SCAN 
90000 EF SG D : 10$: OVL Pata ae PERVECERE] R3 Get A PCB ADDRESS 
60 ASD C7 37% CMPL PcBsL PIDTR4) ,PCBSL ~OWNER (RS ) ; DO WE OWN IT 
oc 12 00CC 75 FO ~=s._- 208 TRY ANOTHER 
CE 16 SDELPRC_S PCBSL_EPID(R3) ; BARK IT FOR DELETE USING THE EXTENDED PID 
E2 56 FS OODA 37 j $: SOBGTR ~R6,10$ : CONTINUE 
E dC O0DD A: $: MOVPSL -(§P) : SAVE PSL 
DF 7 DSBINT wW*SUBWIP : BLOCK SYSTEM EVENTS, SAVE IPL IN R6 
42 AG 8 e7 6 ist Pcosu. BRE ERE cra) 3 CHECK COUNT OF SUB-PROCESSES STILL RUNNING 
5 8 3¢ EC ¢ MOVZWL #RSNS_ASTWAIT,RO + SET RESOURCE NUMBER 
00000000" EF 6 OOEF JSB *SCHSRWAIT : AND WAIT FOR AN AST 
£6 11 FS 4 BRB $ : CHECK AGAIN WHEN AWAKENED 
F 5 40$: SETIPL R6 : RESTORE IPL 


a Cc 
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SYSDELPRC = DELETE PROCESS SYSTEM SERVICE 16=SEP=1 AX/VMS Macro V04-00 Page 9 
baa ti DELETE = PERFORM DELETE ACTIONS IN CONTE g-8e EP=1 1382 8} 35: 38 YES. SRCISYSDECPRC.MAR; 1 * ih 
FA : 50$: : DONE, ALL SUB-PROCESSES DELETED 
0 11 cA aaa RUNDWN : CONTINUE WITH RUNDOWN 
00000008 00 ",LONG IPLS_SYNCH ; MARKER FOR END OF TEMP NON=PAGED 
1 9 } eee reese = So a ee Cw Oe eS & we SS ew ww we oe Fen e er Bee Se OTe SS SS PTO eS Dew ee ew ow ~ ee Sw 
1 3 3 
93 ; RUNDOWN PROCESS ACTIVITY 
1 95 : i ae Sw ee (Se ee oe ee om ae en > ae @s oe me en es ce oe em om ce ae ce oe wm ee ae oe ew er me ee eS ee we ee em 
100 39 
i 3 RUNDWN: : RUNDOWN PROCESS ACTIVITY 
0 oD 01 98 PUSHL + SET MODE FOR RUNDOWN 
0 000000" EF 1 FB 10 9 CALLS $Y S$RUNDUN + RUNDOWN AT KERNEL MODE 
5 0000 000'°9F pO 0109 400 MOVL rt sy RS GET PROCESS HEADER DRESS 
52 55 20 a5 C1 119 401 ADDL3 PADS set rBASOr (RS), RS, Rb > GET ADDRESS OF SECTION TABLE 
: D4 011 40¢ CLRL (SP) ; ASSUME NO PAGES WILL BE DELETED 
5E 10 C2 0117 40 SUBL «#16,SP ; 00M FO — AND RETRANGE 
53 OS p 11A 404 MOVL SP : REMEMBER SCRATCH AREA ADDRESS 
56 24 A 11D 405 CVTWL PHOSW_PSTLAST(R5S),R6 : GET INDEX TO LAST SEC TBL ENTRY USED 
11 or 1 406 BRB ; JOIN COMMON | LOOP 
18 A2ug DS 0123 407 4$: TSTL | SECSL_REFCNT(R2)CR6] §: ANY PAGES MAPPED? 
5§§ 19 4 Z 408 BLSS 6$ : BR IF NOTHING MAPPED TO THIS SECTION 
; 4 410 : DO A $DELTVA FOR THIS SECTION. 
57 6246 DE 0129 41g , MOVAL (R2)CR6) DRESS OF SECTION TABLE ENTRY 
04.03 O8 AZ 16 00 EF O12D 41 EXTZV #SECS$V Olen. WSECSS_VPX, seist VPXPFC(R7).4(R3) ; GET START VPN 
04 a3 OOCC CS 18 00 ED o1 4 aig CMPZV #PHDSV~POLR, #PHDSS_POLR, ow POLR ASTLERS) 683) : IS VA IN PO? 
50 O00000000°EF 07 26 13€ 41 ROTL #7,SGNSGL_PTPAGCNT.RO ; GET LONGWD OFFSET FROM BEGIN OF PAGTBL 
04 A3 50 C2 0146 41 SUBL R GET V N INP Pi SPACE 
04 A304 AB 18 00 cf 146A 418 EXTZV #seCsV, vPx XK ASECSS. VPX, 4(R3) LCR) MASK OFF SIGN BITS 
04 A304 A3 09 78 0151 419 5S: ASHL 49. 4(R3 ; GET VA Of FIRST PAGE MAPPED 
1¢ A? 09 78 157 420 ASHL #9 SECS tne cn?) (R3)'; GET # OF BYTES IN SECTI 
63 04 a3 cO 015¢ 39421 ADDL2 >, (R3 :'GET VA OF LAST PAGE MAPPED 
63 07 0160 4 2 DECL hs : GET ADR OF LAST BYTE MAPPED 
1g 4 SDELTVA_S (R3),8(R3) : DELETE PAGES FOR THIS SECTION 
08 AS sOFFFFFFFF 8F D101 424 CMPL = “#-1,8(R3) : WERE ANY PAGES DELETED? 
4 13 0178 425 BEQL 6s : BR IF NONE DELETED 
10 a3. 01 «DO O17A 4 é MOVL R3) : INDICATE SECOND RUNDWN REQUIRED 
56 (8 9 7 427 6$: ADDL2 PSECSC CENGTH@-2,R6 : GET OFFSET TO NEXT SECTION TABLE ENTRY 
AO 19 «(01 4 8 8$: BLSS > GO CHECK NEXT SECTION 
5E 10 CO 0183 4 ADDL #16,SP : CLEAN INRANGE AND RETRANGE OFF STACK 
E bs 0186 430 TSTL = (SPS+ ; WERE ANY PAGES DELETED? 
B 13 01 4 BeEQL 46-55 : NO, THEN DON'T BOTHER WITH 2ND RUNDWN 
0 oD O18A 4 : PUSHL # : set MODE FOR RUNDOWN 
00000000'EF 01 FB 4 CALLS #1,SYSS$RUNDWN : RUNDOWN AT KERNEL MODE 
19 4 ¢ ai aan tanta tanec ncaa alata ail citar ee ina labia eine 
193 436: 
193 4 $ $ SCAN THE CHANNEL TABLE AND LOOK FOR ASSIGNED 
13 ‘ g : : CHANNELS. THERE SHOULD BE NONE. 
+ 440 S eueccccccnececccereccccereccnncececcenceceecensneeececceceeccecenees 
1 441 
55 00000000°9F 3C 0193 442 10$:  MOVZWL @#CTLS$GW_CHINDX,RS ; GET MAXIMUM INDEX + 16 


. - Page 1 
16-SEP-1 AX/VMS Macro V04-00 ; 
voueboOT” DELETE © PERFORN DELETE AETIONE IN CONTE 'SoSEP<19R6 BS:So:56 PONSMAS acre VOErOe aot 9) 
EL TABLE 
$5 te 13¢ tte ANE ; 6 pa ; CONVERT" TO NEGATIVE OFFSET 
a “hn ae me one ; ADDRESS OF HIGHEST CHANNEL 
pepo ; 143 109 $: TSTB a ER Sete “eCbBAsE. - ; ett CHANNEL STILL ASSIGNED? 
~s 2 1AA cis _ BLEQ 50 + BRANCH IF NOT. 
IAC 4G 
ae THE CHANNEL 
: N THE CCB IS USED TO RESERVE 
Is 3E8 7 19 Pct ltt aa Pee cece ae ee ghee Se De 
1AC §=—- 453: ::1/0 FUNCTION $L_UCB 
: ACTUALLY USING IT). THE CHAN 
1A iss : nave Tor oe DEARSIGNED BECAUSE NO DEVICE REFERENCE COUNTS REFLECT WS 
TAC 436 : EXISTENCE. 
i 435 BUG_CHECK FILCNTNONZ,FATAL : IT REALLY SHOULD HAVE WORKED 
; NEXT CHANNEL 
55 10 £9 180 461 50S: ADDL? #CCBSC_LENGTH,RS ; NEXT CHAN 
Fe 19 Bibs 88 sss: 
O18 tee MARAAAAABAAAALALZALALALLLALALEAELESEESE EEE RES EAA S ESL ASESESEAE EEA ESE SAE EE SEES | 
b1B2 188 jatueneeacceesenceenecseensueennensenseasensuueeseneeeseneseseessses 
O13 rhe: : DISMOUNT ALL MOUNTED VOLUMES 
er ' UB-PROCESS ? 
em 8 Bes hs oNed se mmmenet : iF Nea ves: SKIP IOC$DISMOUNT 
in 6 ibe 238 MOVL  PCBSL_JIB(R4),R6 : GET JIB ADDRESS 
6 00000" EE {3 SIBr tb JSB L“SCHSIOLOCKW : LOCK | 1/0 DATABASE i a 
0 00 86 OF 0105 475 REMQUE JJBSL_ATLFL(R6) .R6 ; GTA VOLUME TO BE DISMOUNTED | 
1B Oite 138 rt} L*SCHSIOUNLOCK t UNLOCK 1/0 DATABASE 
00000000'EF 16 O1CB 47 ae | UNL otk I 
3 04 1a 138 ER . : UNLOAD UPON DISMOUNT 
mT Het BS = emt CED scone 
ts «Bee “ ? UNLOCK 170 DATABASE 
00000000'EF 16 18 4 $ 1B L*SCHSIOUNLOCK : yasotr od 
if 2 5 spat toc “3casw DIENT Gna) PCBSW. piotnck ) ; WAIT FOR DIRECT 1/0 COMPLETION 
ates if iF $ ene {OLM(R4) : AND BUFFERED 1/0 
B 
1 O1F6 489 308: — CHPW« PCBSW_BIOCNT(R4) ,PCBSW_BI 
=e» ‘9 *) 1F8 490 BNEQ SOE ; 
1FD 49 * seeeceoeeeean eececeoeeeeen eeeceeceeeoeen Se eee See S222 222222222282 8282080 ceameaae oa 
if a38 : DECREMENT INTERACTIVE AND BATCH JOB COUNT WHEN APPROPRIATE 
: 4s 436 ‘ eae ee we or er eve we 2 oc we oe wesw ewer Bw we wD MEE eoenHnowereEewerwewrnr ee ew were ween wewweoewese = 
1FD 497° 
1FD 49 TSTL  PCBSL_OWNER(R4) i lain 
“ 43 3 +60 136 BNEG §RELQUOTA : WE DON'T DO I 
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STEM SERVIC 16-SEP-1984 01:57: AX/VMS Macro V04-00 Page 11 
secete Hatin IN CONTE g-36F P=] 1382 84:25:38 YeYS. SRCISYSDELPRC.MAR; 1 - 
BBC #Pcesy INTER PCBSL_ STS(R4) 598 ; NOT INTERACTIVE 
De CW S¥S$Gu- =} 408chT : ONE LESS INTERACTIVE JOB 
59$: BBC #PCBSV "BATCH, - ; NOT BATCH JOB 
PCBSL_STS(R4S ,DELETE_JT 
DECW  SYS$GO_BJ0BCNT : ONE LESS BATCH JOB 
; DELETE THE JO WIDE LOGICAL NAME TABLE IF THE PROCESS 
; 1S NOT A SUB-PROCESS 
DELETE_JT: : DELETE THE JOB-WIDE LOGICAL NAME TABLE 
MOVAB =JOB_STRING_LEN(SP),SP ; MAKE ROOM ON STACK FOR TABLE NAME 
PUSHAB (5P) + CONSTRUCT A DESCRIPTOR OF THE BUFFER 
PUSHL #JOB_STRING_LEN + WHICH IS TO CONTAIN THE TABLE NAME 
OVL P.R3 : SAVE THE ADDRESS OF THE DESCRIPTOR 
SFAO_.S - ; CONSTRUCT THE JOB-WIDE TABLE NAME 
CTRSTR = JOB_FAO, - 
OUTBUF = (R3J, - 
Pi = PCBSL_JIB(R4) 
SDELLNM_S - : DELETE THE JOB-WIDE LOGICAL NAME TABLE 
“FOGNAR z 
TABNA NA SYSTEM. DIRECTORY_DESC 
ADDL2 #JO0B_ STRING. Waar SP~  ; RESTORE THE STACK 
: SEND REMAINING QUOTAS TO OWNER IF SUB-PROCESS 
RELQUOTA: ; RELEASE QUOTAS 
CLRB  PCBST_LNAME(R4) > REMOVE PROCESS NAME 
MOVL PCBSL~OWNER(R4) ,R6 : GET PID 
BEQL MESSAGES : IF EQL NOT A SUBPROCESS 
PUSHL R4 : SAVE PCB ADDRESS 
MOVZUL R6,R6 : EXTRACT PIX FROM OWNER PID 
OVL aL*SCHSGL PCBVECLR6], R4 : AND GET PCB 
JSB L*EXESALLOCI t ALLOCATE AST CONTROL BLOCK 
BLBC R 2 $ 3 SKIP QUOTA RETURN IF ERROR 
MOVL R SET ADDRESS OF 1oyorA AST BLOCK 
MOVAB US Refauota. ACBSL _KAST(RSS : SET AST ADDRESS FOR SPECIAL 
KERNEL AST 10. RETURN QUOTAS 
MOVB #<1@ACBS$V_KAST>,ACBSB RMOD(RS) ; FLAG AS SPECIAL KERNEL AST 
MOVL PCBSL_PIDTR4) ,ACBSL =PTD(R5) SET TARGET PID FOR AST 
MOVL (SP) Re i GET pcA ADDRESS FOR PROCESS BEING DELETED 
MOVL. a#CTL$G : GET PROCESS | HEADER ADD DRESS 
SUBL3 PHDSL SPETRACPUCRID, PHDSL =*PULIM(R ) ,ACB_L_CPULIM(R5) 
CPULIMIT~LESS BONUS 
MOVL § PHDSL_CPUTIM(R1),ACB_L -cbutin R5) 
D. ACCUMULATED CPU TIME 
MOVZWL #PRIS_RESAVL ,R2 : SET PRIORITY INCREMENT CLASS 
JSB L*SCHSQAST + QUEUE AST FOR CREATOR 
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SYSDELPRC - DELETE PROCESS SYSTEM SERVICE 16-SEP=1 7: AX/VMS Macro V04-00 Page 1 
ribet DELETE = PERFORM DELETE ACTIONS IN CONTE g-sEF =}38% 83: 35: 3g ¥8 SYS. SRCISYSDELPRC.MAR; 1 ° 18, 
10 BA 029¢ 7 20$:  POPR #*M<R4> ; RESTORE PCB ADDRES 
H 8 SETIPL #0 $ DROP IPL TO ISSUE SYSTEM SERVICE REQUESTS 
“ $9 Py = ee a oe ee oe Re re a ee es —aw ESB OMOEA ZEZB ee nre even aemreeernan eee Owe ws we we ew we we we ee we 
Al 66 : TERMINATION MESSAGES 
nN or : 
Al 565 MESSAGES : SEND TERMINATION MESSAGES 
32 AG 85 Al 66 TSTW PCBSW_ TMBU(R4) : TERMINATION MAILBOX SPECIFIED ? 
05 1 Aa 56 BEQL 108 : IF EQL, NO 
015A 30 ag é BSBW 436s TERMMSG : SEND MESSAGE TO TERMINATION MAILBOX 
A 108: : SEND MESSAGE TO JOB CONTROLLER 
05 24 a4 OF €1 02A9 0 BBC #PCBSV_BATCH,PCBSL_STS(R4),20$ ; IF BC, NOT A BATCH JOB 
00 24 a4 OA ES ‘ 4 co BBCC  #PCBSV“SSRWAIT,PCBSL_STS(R4),20$: ENABLE RESOURCE WAIT MODE 
55 04 02B ig CLRL RS : NOT A SPECIAL KERNEL AST ROUTINE 
00000000°EF 16 BS 278 JSB FE RESPRCDELMSG : SEND PROCESS DELETE MESSAGE 
8 a4 378 3 Bee er secre ewT 222 ZF © B® PP Ze @®e2eot eet ee ®etT een em ec eee ne eeeevewrwnezreroeruaceocerooaooezrewr= 
0288 of : DESTROY PROCESS 
028B 579; 
8 4 289 fre mem m meee cone meee ese ne eee e eee eee eee ewe e eo oee eee ooceoooe 
0 a 38 .ENABLE LSB 
02BB 584 DESTROY: 3 
0288 585 SETIPL #IPL$_ASTDEL 3; NO MORE ASTS AFTER THIS POINT 
5 of OSS Oseh eae ats AS Linus 
62 40000000 BF 00 0204 588 MOVL Hibhe ce : SET STARTVA 
04 Ad 7FFFFFFF 8F 00 92CB 589 MOVL a31>-1>,4(R2) END AT VECTOR op AGE 
D 390 > WE CAN'T tise THE MACRO SINCE THE P1 vecTORS WILL DISAPPEAR 
D 91: SDELTVA_S (R2) ,8(R2) ; DELETE FROM KERNEL STACK TO VECTORS 
00 od 02D 29 PUSHL #0 
08 A27F 0 d5 «59 USHAQ 8(R2) 
6 7F D8 594 PUSHAQ (R2) 
80000000'EF 03 FB O2DA 595 CALLS #3, SYSSDELTVA-P1SYSVECTORS+*x80000000 _; DELETE KSTK TO VECTORS 
02E1 596 ; ENTER & EX IT’ DELT ve AT IPLCASTDEL) 
—1 597 SETIPL W*DESTROY_SYNCH : BLOCK SYSTEM EVENTS 
£6 598 : AND LOCK PAGABL LE CODE 
07 EG 99 SVPCTX : SAVE PROCESS ONTEX 
E? 6 6 : AND GO TO IN TERR T STACK 
55 6C AG «60 «(O2E7) 6 PCBSL_PHD(R4) .RS : Crt PROCESS HEADER ADDRESS 
A AS 3C O2EB 6 : MOVZWL PHDSW7PHVINDEX(RS).R10 : GET BA LANCE SLOT INDEX 
53 000000 ‘tf ) EF 60 MOVAB  L‘“SCHSGL NULLPCB r3 : GET POINT TO NULL PROCESS PCB 
OO000000EF, 53 00 O2F6 604 MOVL  R3,L*SCHSGL_CU Rete 1} SEL AS, CURRENT PCB 
51 0999 0000'FF4A ¢ FD 605 MOVZWL @L*PHVSGL_PIXBAS SCR10I ,R1 : GET PROCESS INDEX 
00000000'FF41 53 p 5 6 : MOVL  R3,@L“SCHSGL_P PcBV ectRi : RELEASE PROCESS INDEX SLOT 
59 (OC A C dD 6 MOVZWL PH HF iW LOCKTR )R : POINT TO FIRST NON PERM PAGE 
54 4 1 608 CLRL : MARK WITH A ZERO 
58 OB A C 0314 609 MOVZWL Stns LIST(RS), RB : LONGWORD INDEX TO START OF WORKING SET LIS 
8 6548 D 18 19 MOVAL CR RB : FORM BYTE ADDRESS OF START OF WSLIST 
D 1¢ 611 40$: MOVL (RB) : GET VA OF PERM PAGE 
. ie 1F I BEQL : DONE E LEFT 
F852. «€9 0321 61 BLBC Osi a : IGNORE IF NOT VALID 
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16-SEP-1984 01:57: AX/VMS Macro V04-00 Page 13 S 
IN CONTE ete 1 84:25:38 YeyS. SRCISYSDELPRC.MAR; 1 ° qd) vi 
40$ ; OR IF HEADER PAGES (SYSTEM ADDRESS) 
DEL PAGE ; DELETE PAGE 
4 CONTINUE 
@PCBSL_ASTQFL(R4),RO |; REMOVE PENDING AST CONTROL BLOCKS 
70 : NONE LEFT 
#ACBSV_NODELETE,- 3 BR. IF NUcLETE BIT IS SET. THIS 
ACBS$B_RMOD (RO) 60S : SHOULD NOT HAPPEN BUT IF IT DOES MAY 
; RESULT IN LOSING POOL (WHICH 
: PREFERABLE OVER A DOUBLE DEALLOCATE). 
DE ANONPAGED ; DEALLOCATE SPACE FOR ACB 
60$ : AND CONTINUE 
L“EXESDEANONPAGED + JUMP TO REACH REAL DEANONPAGED 
PCBSL_WSSWP(R4) ,RO ; GET VEN OF OF AREA TO FREE IN SWAPFILE 
PHDSW co al »R1 ; STE OF” AREA TO FREE 
# SET SWAP FIL LEN NUMBER 


ides *RO GET VBN OF AREA 

aL *m scéen’ PAGSWPYCCR3], RS; GET ADDRESS OF PFL CONTROL BLOCK 
L“MMGSDEACLO L ALLOCATE AREA 

Basa, PRIVGARBSE “Rigutstists +B(RG) RO ; GET EXTENDED RIGHTS LIST 


8 : BRANCH {F NONE 

DE ANONPAGED ; DEALLOCA TE IT 

PCasL_ JIB(R4) ,RO ; He ADDRESS OF JIB FOR RELEASE 
JIB$W_PRCCNT(RO) LESS PROCESS IN THIS TREE 

PCBSL PID(R4) ,JIBSL _ne1piRo)™ fis THs THE MASTER PROCESS? 
DEANONPAGED : DEALLOCATE JIB 

PCBSL_OWNER(R4) ,RO : GET PIX FROM OWNER UIC 

100$ ~ : BR IF NOT A SUB-PROCESS 

aL *SCHSGL PCBVECCROJ,RO ; GET ADDRESS OF OWNER PCB 

PCB$W_PRCCNi (RO) + DECREMENT COUNT OF SUB=PROCESSES 
#RSNS- ASTUAIT® RO t NOTIFY PARENT PROCESS THAT ITS 

C SCHSRAVAIL : SUBPROCESS COUNT HAS BEEN DECREMENTED 
R4,RO : SET ADDRESS OF PCB FOR RELEASE 
DEANONPAGED : AND DELETE IT 

L“SWP$GW_BALCNT ; DECREASE COUNT IN BALANCE SET 
L“SCHSSWPWAKE + WAKE SWAPPER 

#0,@L*PHVS$GL_PIXBASCR10)'; INDICATE PROCESS HEADER TO BE DELETED 
teh $Gu_DELPHOCT ;"FLAG SWAPPER'S ATTENTION 

L“SCHSSCRED : AND SCHEDULE FOR ANOTHER PROCESS 


CHSGW"PROCCNT ; ONE LESS PROCESS NOW 
J 


B 10 
SYSDELPRC - DELETE PROCESS SYSTEM SERVICE 16-SEP-1984 AX/VMS Macro V04-00 Page 14 
WOeeobO DELPAGE = DELETE PAGE met 8%: 25 38 SYS.SR 48 YSDELPRC.MAR; 1 ” th 
c 665 ra ~SBTTL DELPAGE = DELETE PAGE 
C3 665 | FUNCTIONAL DESCRIPTION: 
¢ 666 : DELP AGE DELETES THE CONTENTS OF THE SPECIFIED PAGE AND PLACES 
C 667 ; THE PFN ON THE FREE PAGE LIST. 
¢ 6¢3 > CALLING SEQUENCE: 
¢ 670 ; BSB DELPAGE 
C 676 + INPUT PARAMETERS: 
C 673; 2 VIRTUAL ADDRESS OF PAGE TO RELEASE 
C3 674: PCB ADDRESS OF PROCESS OWNING PAGE 
0 c 679 ; RS = = PROCESS HEADER ADDRESS OF PROCESS OWNING PAGE 
0 ¢ ers + OUTPUT PARAMETERS: 
HS 678 : NONE 
03C3 679 : 
8 C 680 ;-- 
C3681 
03¢ 68¢ DELPAGE: ; DELETE PAGE 
ss as a! 16 te 68 JSB MMGSSVAPTECHK ; GET SVA OF PTE FOR PAGE 
3163 IF €5 3¢9 684 BBCC ##PTESV_VALID,(R3),50$  : EXIT IF NOT 
0063 1A €5 O3CD 685 BBCC ESV-MODIFY,(R35,10$ : CLEAR MODIFY INDICATOR 
50 63 15 00 EF 03D1 686 10$:  EXTZV #0,#PTESS PFN.(R3).RO : GET PFN FROM PTE 
0306 687 DECREF L*,,JSB ; DROP REFER REN cE COUNT ON PAGE 
17 146 O365 688 ectrR  §56§ BR it CANT ELEASE Y 
00000000'FF40 80 8F 8A 03E7 689 BICB #PFNSM MODIFY, @L“PFNSAB_ STATE RO nace a “NO MODIFY BIT 
Q0000000'EF 16 O3FO 690 208: JSB MMGSDECCONPF > DELETE CONTENT OF P 
O3F6 691 ASSUME PFNSC_FREPAGLST EQ 0 : 
52 D4 OO3F6 69¢ CLRL oR : INDICATE FREE LIST 
00000000 ‘EF 16 O3F8 69 JSB MMGSINSPFNH ; INSERT AT HEAD OF FREE LIST 
05 O3FE 694 50S: RSB 3 
O3FF 695 
O3FF 696 DESTROY_SYNCH: ; END OF NONPAGABLE AREA 
00000008 O35FF 697 ~ LONG IPL$_SYNCH ; SYNCHRONIZATION IPL TO BLOCK SYSTEM EVENTS 
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SYSDELPRC - DELETE PROCESS SYSTEM SERVICE Ig-SEB-1984 Ot: 52:5 YAX/vits Macro v04-00 Page 15 
v04- TERMMBX = SEND MESSAGE TO TERMINATION MA 5=SEP=1984 SYS.SRCISYSDELPRC.MAR; 1 (1) 
i $99 .SBTTL TERMMBX = SEND MESSAGE TO TERMINATION MAILBOX 
4 701 _—— eeececeea (we oe ee we ee we DS ee ee ee em we wea ner roe ee (ee ee ee ee ee tee ce 
4 702 ; 
4 7 : : BUILD PROCESS TERMINATION MESSAGE AND SEND TO TERMINATION 
4 704 : MAILBOX UNIT. 
103} s ; 
403 707 ° 
403 708 TERMMSG: : SEND TERMINATION MESSAGES 
5A SE vO 40 709 MOVL SP, R10 + SAVE STACK STATE 
68 AG «DD «O04 s 710 PUSHL PCBSL EOWNER(R4) SEND EXTENDED PID OF SUBPROCESS OWNER (0 = 
55 Q0000000'9F 00 0409 711 MOVL  a@ACTLSGL_ GET PROCESS HEADER ADDRESS 
7E 00000000'9F 7D 0410 ar OVG a#CTL$Ga~ OGIN. =-(SP) LOGIN ME 
0417 71 ASSUME ACCS$L_OW WRER’ EQ’ ACC$Q_LOG cing 
00000000'9F DD 0417 714 USHL  a@#CTLSGL_VOLUMES ; COuyr OF MOUNTED VOLUMES 
041D 715 ASSUME ACCSO_LOGIN EQ ACCSL_VOLUMES+4 
54 AS DD 041D 716 USHL PHDSL-DIOCNT(RS) DIRECT 1/0 COUNT 
0420 717 ASSUME ACC$LVOLUMES EQ ACCS$L_ piocnr+4 
58 AS) DD «(04 9 718 USHL PHDSLBIOCNT(RS) BUFFERED 1/0 COUNT 
04 719 ASSUME ACCSL-DIOCNT EQ ACCSL _BIOCNT 
00000000'9F DD 0423 720 PUSHL  a#CTLSGL_WSPEAK be WORKING SET SIZE 
0429 721 ASSUME AccSL_ BIOCNT EQ ACCSL _WSPEAK* +4 
00 pd 0429 7 : PUSHL # PEAK PAGING FILE USAGE 
0428 7 ASSUME ACCS$L_WSPEAK EQ ACCSL _PGFLPEAK +4 
4C AS DD 0428 724 PUSHL PHDSL~PAGEFLTS(RS) TOTAL “PROCESS PAGE FAULTS 
042E 725 ASSUME ACCSL~ ~POFLPEAR EQ ACCSL PaGeFLTs+4 
38 AS DD 0426 «86726 PUSHL PHDSL-CPUTIM(RS) SA VE ReCunuLateD CPU TIME FOR PROCESS 
0431 727 ASSUME ACCSL~ SaGerUTS EQ ACCSL_ Purl 
50 0000000C'9F 9E 0431 728 a#CTLST_USERNAME+12,RO ~ Pert "BASE ADDRESS 
7E 70 7D 0438 £6 mMOva -(RO),= “SP : LAST HALF OF USER NAME 
70 DD 0438 730 PUSHL =(RO) FIRST LONGWORD OF USER NAME 
50 0000'CO 9E 043D i31 MOVAB W*<CTL$T_ACCOUNT-CTLS$T uBeRane (ROS ),RO ; POINT PAST ACCOUNT 
0442 7 ASSUME ACCSL_CPOTIM EQ ACC$T_OSERNAME+1 
7E 60 7D 044 f3 mova 0),=(S SET ACCOUNT INTO RECORD 
7E  Q0000000°EF 7D ee a3 nove’ tretea’ aT ee a oe Bass TIME 
- mes O44¢ 136 ASSUME A Acc CC$T_ACCOUNT EE ACCSO_ tenn ine+8 
044E 73s ASSUME ACCS$Q_TERMTIME EQ ACCSL _J0B1D+ +4 
64 AG «DD 044E = 739 USHL PCBSL-EPID(R4) EXTENDED PROCESS ID 
451 740 ASSUME ACC$L~JOBID EQ ACCSL_PID+4 
00000000'9F pd 0451 741 USHL  a@#CTLSGL_FINALSTS FINAL STATUS OF PROCESS 
457 4g ASSUME accel PID EQ ACCSL _FINALSTS#4 
03 pp 0457 7% USHL #MSG$~DELPROC nF SSAGE TYPE 
459 764 ASSUME ACCSLFINALSTS EQ ACCSW Asctye +4 
SE pO 0459 745 OVL  SP,R? MESSAGE ADDRESS 
i 32 a4 «603C (045 246 MOVZWL PCBSW TMBUCR4) .RO ; TERMINATION MAILBOX UNIT 
7E  3A303030 30304240 mi : 460 167 mova #*A/MB00000:/,-(SP) ; SKELETON FOR DEVICE STRING 
HB vos, BBN HBP No A 
” 50” 50° . iB 476 751 ADDB = R2, - (R$) + SET DIGIT INTO NAME STRING IN ASCII 
D5 0479 7 TSTL = ; CHECK FOR END 
ie 158 See BOM SPS : BUILD STRING DESCRIPTOR FOR 
SE DD 047D USHL : 
08 DD O47F 755 PUSHL 4&8 : MAILBOX NAME 
| 
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SYSDELPRC = DELETE PROCESS SYSTEM SERVICE 16- 7: AX/VMS Macro V04-00 Page 16 
WOeeobO TERMMBX = SEND MESSAGE TO TERMINATION MA g-S6F =1982 83: 25 +3 SYS.SRCISYSDELPRC.MAR; 1 * 
58 5E DO 0481 2 é MOVL SP, RB : AND SAVE POINTER TO NAME DESCRIPTOR 
E dE 4 4 MOVAL =(§P),R9 ; RESERVE SPACE FOR CHANNEL 
487 § > CHECK FOR PRESENCE OF CHANNEL TABLE, IF NON-EXISTENT (I.E. PROCESS DELETED 
‘ f £60 ; BEFORE THE CREATION OF IT) USE A PAGE OF SUPERVISOR STACK FOR IT 
00000000'9F B85 0487 166 . TSTW © @#CTLSGW_NMIOCH ; IS THERE A VALID CHANNEL TABLE? 
¢5 12 048) 76 BNEQ 208 ; YES, SKIP TO ASSIGN 
4 OD O48F 764 PUSHL R4 SAVE pce ADDRESS 
53 00000008" 9F 0 491 765 MOVE =tfase't STACK S<Q*PSLSC_ éuBERS, R ; PICK UP SUPER SP 
00000000 ' 9F 4 es a#CTL$GL US CBBA sé : MAKE IT TABLE BASE 
0200 8F 00 ius 09 2c 4A 768 MOVCS #0, (SP),#0,#512,-512(R3): CLEAR IT OUT 
7 BEDO O4AA 769 POPL R4 ; RESTORE PCB ADDRESS 
iF 3C O4AD 770 MOVZWL #<512/CCBS$C_LENGTH>=1,- : SET NUMBER OF CHANNELS 
00000000' 9F 4AF 71 aaCTL$GW_NMTOCH 
0484 ae $ ASSIGN CHANNEL TO MAILBOX AND WRITE THE MESSAGE 
beet | 778 Sos: 
04B4 176 "  $ASSIGN_S DEVNAM=(R8),- ; ATTEMPT TO ASSIGN CHANNEL TO 
484 77 CHAN=(R9) : MAILBOX 
2150 €9 04C1 078 BLBC _——RO, 308 ; UNABL E TO ASSIGN, IGNORE 
4C4 77 $010_S CHAN SEND TERMINATION MESSAGE 
4C4 780 FUNt=#cTO8 “WRITEVALE! 108A 
0464 781 =(R7),= MESSAGE “RopRESS 
O4C4 182 rie P2=RACCSC _TERMLEN; MESSAGE SIZE 
See 784 " $DASSGN_S CHAN=(R9) : DEASSIGN CHANNEL 
SE SA DO OSEF 785 MOVL ~R10,SP : RESTORE STACK STATE 
05 O4Fe 786 RSB 
O4F3 787 
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according to the following rules. 


If the subprocess has unused CPU time Limit (a credit) , 
that credit is added to the parent's CPU Limit. 


If the subprocess exceeded its CPU time allotment, an attempt 
is made to pass the deficit to the parent. 


SDOoooooooo 


If the deficit is smaller than the poreat CPU Limit, the 
deficit is simply subtracted from CPU Limit. 


If the deficit is larger than the parent's CPU Limit, the 
perens is forced into the CPU time expiration path by 

oading its CPUTIM into its CPULIM field, sagrees tng 

that its CPU time Limit has expired. (Note that loading CPULIM 
into CPUTIM has the same effect but causes double accounting 
for the CPU time already charged to the subprocess.) 


Return Unused CPU Time Limit to Parent SEP- SYS.SRCISYSDELPRC.MAR; 1 ) 
rt! SUBTITLE Return Unused CPL Time Limit to Parent 
GF + 
re! Functional Description: 
4F RETQUOTA is entered via a special kernel AST directed to the 
Gf creator of a subprocess. The AST control block contains the 
tr unused CPU time Limit to be returned to the creator. 
4F The CPU Limit of the parent has any unused CPU time from the 
rt subprocess added to it. 
rt! ; Input Parameters: 
4F RG PCB Address of Current (Parent) Process 
re RS Pointer to AST Control Block 
4F ACB_L_CPULIM(R5) Original CPU Limit of Subprocess 
a ACB_L_CPUTIM(RS) CPU Time Used by Subprocess 
rt Output Parameter: 
" PHDSL_CPULIM(R1) The CPU Limit of the parent is adjusted 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 


; Side Effects: 

The AST control block is released to nonpaged pool. 
Environment: 

IPLS_ASTDEL while carrying pointer to AST control block. 


MEW 9 ODN NEW 9 OD NAUN EWN 9 OD NAME WIN @ 0 OD NAW EW  O ODNAUE WI" 00 
‘ * . 


PPE EE FAA MAIWAIUAIIDRRIPININPINININININD 4 OO  MDOOODOOOCOCSCOWOOWOOOOOOO0OR 


509090900 09 09 09 69 G9 G9 G9 OD Cd 9 Cd Od CD Cd CO CD Cd CD OD OD OD OD CD C9 Gd CD OD GD CD CD CD CD C9 0D OD C9 09 CD CD 0909 SI INI IIIS 


RETQUOTA: 
51 00000000°9F oD MOVL @*CTLSGL_PHD,R1 3; Get safe pointer to process header 
5C Al OD TSTL  PHDSL_CPOLIM(R1) : Check for no quota 
1 1 BEQL 20 ; Skip return if no quote 
50 1€A5 20A f SUBL3 ACB_L_CPUTIN(RS) ,ACB_L_CPULIM(RS) ,RO 3 ef difference 
1 BGEQU 1 : Excess or deficit (Branch if excess) 
C MNEGL RO,-(SP) ; Handle deficit very carefully 
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5C Al D1 A rk} CMPL ek ee ; Can cregter accommodate deficit? 
1F 4 BLSSU 10% ; Branch if yes 
5C Al 38 Al 00 4 MOVL PHDSL_CPUTIM(R1),PHDSL_CPULIM(R1) ; Otherwise, force CPU time 
1 4 : expiration by setting Limit to time 
04 = «11 ! BRB 20$ 3 Deallocate AST control block 
5C Al C 1 i$: ADOL2 RQ - PHOSLCPULIACAT) ; Give back excess 
38 18 $ MOVL R5,R0 3; Get aderess for release 
00000000' GF i 34 JMP G*EXESDEANONPAGED ; Return via EXESDEANONPAGED 

4 56 - END 
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SCHSC_SWPPIX 
SCHSGC_CURPCB 


SWPSGW_BALCNT 
SYSSASSIGN 


SVSSDELTVA 

SY $FAO 
SYS$GW_BJOBCNT 

eyescu- IJOBCNT 

SYS$Q10 


SYSSRMSRUNDUN 
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¢oeoeeecececan weeocam } 


! Psect synopsis ! 


panos meme sa nanwema $ 


PSECT name Allocation PSECT No. Attributes 
, OS « 00 $8 ( 8.3 0¢ 0.) NOPIC USR CON ABS iCL wOsHR NOEXE NORD NOWRT NOVEC BYTE 
SABS$ 00 ( -») O71 ¢ 1.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
YSEXEPAGED 0 4 ( 1318-9 ( §°} NOPIC USR CON REL LCL NOSHR’ EXE RD WRT NOVEC BYTE 
AE XENONPAGED 0000052 <¢ 82.) ( -) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC BYTE 
tee seer eee see en asoe wee eeeoe t 
H Performance indicators ; 
Phase Page faults CPU Time Elapsed Time 
Initialization 30 :00:00. 0:00:02.38 
pennene processing Vy 0; 0:0 33 00:00:08. 39 
Symbol table sort 178 3 3 3 Be 
Symbol table output 2) 0:00: 0.19 0:00:00.91 
Psect synopsis output 8 8: :00.03 00:00:00.03 
Cross-reference output g :00: 9-98 as Ba ot 
Assembler run totals 83 00:00:27.9 0:01:32.8 


The vorking set Limit was 1950 pages. 

562 bytes (222 pages) of virtual memory were used to buffer the intermediate code. 

There were 110 pages of symbol ot space allocated to hold 2048 non-local and 46 local symbols. 
856 source Lines were read in Pass 1, producing ¢ object records in Pass 2. 

46 pages of virtual memory were used to define 44 macros. 


terse secer ee ewe ee ween eee m moe + 


' Macro Library statistics : 


mmo er nr tener o mene oor ewreaeeaw 


Macro Library name Macros defined 
~$25550UA28: bsY3- -OBJJLIB.MLB;1 1 
$255SDUA SVSL16 STARLET. MLB;2 2 
TOTALS (all Libraries) 41 


2279 GETS were required to define 41 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:SYSDELPRC/OBJ=O0BJ$:SYSDELPRC MSRC$:SYSDELPRC/UPDATE=(ENHS:SYSDELPRC) +EXECML$/LIB 
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